unit InputI;

interface
const
InputSystemGUID:TGUID='{568D0F2D-4ABD-48B1-9E52-3A556A47204C}';

INPUTACTION_DOWN = 1;
INPUTACTION_UP = 2;

Type PInputAction=^TInputAction;
TInputAction=packed record
action:integer;
data1,data2:pointer;
end;

const MaxKeysInCombination = 3;
     type TCombination=array[0..MaxKeysInCombination - 1] of word;
type IInput=^_Input;
_Input=packed record
RegisterInputAction:Procedure (const combination:TCombination; action:integer; data1,data2:pointer); cdecl;
UnregisterInputAction:Procedure(const action:integer; data1:pointer); cdecl;
RegisterInputActionStr:Procedure(const str:PChar; action:integer; data1,data2:pointer); cdecl;
UnregisterInputActionStr:procedure(const str:PChar); cdecl;
IsRegistered:function(const sym:PChar):boolean; cdecl;
end;
implementation

end.
